Sub slika()
Dim x As Double, y As Double
  x = InputBox("x=")
  y = InputBox("y=")
If y >= o And x <= o Then
    If (x + 1) ^ 2 + y ^ 2 <= 1 Then
      MsgBox ("Tacka sa kordinatama x = " & x & ",y = " & y & " pripada figuri.")
    Else
      End If
Else
    If y >= -1 And 0 >= x >= -2 Then
        If x ^ 2 + (y + 1) ^ 2 >= 1 And (x + 2) ^ 2 + (y + 1) ^ 2 >= 1 Then
          MsgBox ("Tacka sa kordinatama x = " & x & ",y = " & y & " pripada figuri.")
        Else
          End If
    Else
      MsgBox ("Tacka sa kordinatama x = " & x & ",y = " & y & " ne pripada figuri.")
      End If
End If
End Sub